Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/nekodemo/pcbk/shared.dir/00301.ls

Text File | 1995-06-01 | 5.3 KB | 182 lines

on startMovie
  global menuflag, jumpflag
  set menuflag to 0
  set jumpflag to 1
end

on stopMovie
  unLoadCast()
  sound stop 1
  sound stop 2
end

on playcdda
  global gcdaudio, gmusictruck
  set gcdaudio to opencdda()
  set len to mgettracklength(gcdaudio, gmusictruck)
  set the timeoutLength to len / 75 * 60
  mplayloop(gcdaudio, [gmusictruck, 0])
end

on enterFrame
  global menuflag, jumpflag, gprevmovie, gnextmovie
  if rollOver(35) and (gprevmovie <> EMPTY) then
    cursor([201, 203])
  else
    if rollOver(36) and (gnextmovie <> EMPTY) then
      cursor([202, 204])
    else
      if rollOver(37) then
        cursor([205, 206])
      else
        if rollOver(38) then
          cursor([207, 208])
        else
          cursor(-1)
          repeat while the mouseDown = 1
            showmenu()
          end repeat
          hidemenu()
          if jumpflag = 0 then
            if rollOver(30) then
              set jumpflag to 1
              puppetSound("ORG")
            else
              if rollOver(31) then
                puppetSound("ENG")
                set jumpflag to 1
              else
                if rollOver(37) then
                  go("A")
                else
                  if rollOver(38) then
                    go("R")
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on showmenu
  global menuflag, jumpflag
  if menuflag = 0 then
    if (the mouseH < 600) and (the mouseH > 100) then
      puppetSprite(30, 1)
      puppetSprite(31, 1)
      puppetSprite(32, 1)
      puppetSprite(33, 1)
      set the locH of sprite 30 to the mouseH - 30
      set the locV of sprite 30 to the mouseV - 30
      set the locH of sprite 31 to the mouseH + 30
      set the locV of sprite 31 to the mouseV - 30
      set the locH of sprite 32 to the mouseH - 30
      set the locV of sprite 32 to the mouseV + 30
      set the locH of sprite 33 to the mouseH + 30
      set the locV of sprite 33 to the mouseV + 30
      set the visible of sprite 30 to 1
      set the visible of sprite 31 to 1
      set the visible of sprite 32 to 1
      set the visible of sprite 33 to 1
      updateStage()
      set menuflag to 1
      set jumpflag to 0
    end if
  else
    selectmenu(30)
    selectmenu(31)
    selectmenu(32)
    selectmenu(33)
    updateStage()
  end if
end

on hidemenu
  global menuflag
  if menuflag = 1 then
    set the visible of sprite 30 to 0
    set the visible of sprite 31 to 0
    set the visible of sprite 32 to 0
    set the visible of sprite 33 to 0
    updateStage()
    set menuflag to 0
  end if
end

on selectmenu amenu
  if rollOver(amenu) then
    set the ink of sprite amenu to 4
  else
    set the ink of sprite amenu to 36
  end if
end

on stopcdaudio
  global gcdaudio
  mpause(gcdaudio)
  mcancelloop(gcdaudio)
  repeat while mreadstatus(gcdaudio) = 1
  end repeat
  mdispose(gcdaudio)
end

on initkpanlist
  global thekpanlist
  set thestamplist to EMPTY
  set thekpanlist to "01INTRO_,                ,@::MAIN:01INTRO_,1" & RETURN
  put "03MOMO__,@::RTRV:RTRV0300,@::MAIN:ASTART__,3" & RETURN after thekpanlist
  put "04YONONK,@::RTRV:RTRV0400,@::MAIN:ASTART__,4" & RETURN after thekpanlist
  put "05ONAJI_,@::RTRV:RTRV0500,@::MAIN:01INTRO_,5" & RETURN after thekpanlist
  put "06YOKITM,@::RTRV:RTRV0600,@::MAIN:01INTRO_,6" & RETURN after thekpanlist
  put "07UTATAN,@::RTRV:RTRV0700,@::MAIN:01INTRO_,7" & RETURN after thekpanlist
  put "08MONOOM,@::RTRV:RTRV0800,@::MAIN:01INTRO_,8" & RETURN after thekpanlist
  put "09TURIAG,@::RTRV:RTRV0900,@::MAIN:01INTRO_,9" & RETURN after thekpanlist
  put "10KOGOTO,@::RTRV:RTRV1000,@::MAIN:01INTRO_,10" & RETURN after thekpanlist
  put "11NOZARS,@::RTRV:RTRV1100,@::MAIN:01INTRO_,11" & RETURN after thekpanlist
  put "12KOCHI_,@::RTRV:RTRV1200,@::MAIN:01INTRO_,12" & RETURN after thekpanlist
  put "13URIHAM,@::RTRV:RTRV1300,@::MAIN:01INTRO_,13" & RETURN after thekpanlist
  put "14IROHA_,@::RTRV:RTRV1400,@::MAIN:01INTRO_,14" & RETURN after thekpanlist
  put "15TUKIWO,@::RTRV:RTRV1500,@::MAIN:01INTRO_,15" & RETURN after thekpanlist
  put "16TUINI_,@::RTRV:RTRV1600,@::MAIN:01INTRO_,16" & RETURN after thekpanlist
  put "17OUJYOU,@::RTRV:RTRV1700,@::MAIN:01INTRO_,18" & RETURN after thekpanlist
  put "RTRV0300,                ,@::MAIN:01INTRO_,18" & RETURN after thekpanlist
end

on getkpanlistdata
  global thekpanlist, gnextmovie, gprevmovie, grtrvmovie, grtrnmovie, gmusictruck
  set amovie to the movie
  repeat with i = 1 to 19
    set checkLine to line i of thekpanlist
    set amovie2 to item 1 of checkLine
    if amovie = amovie2 then
      set grtrvmovie to item 2 of checkLine
      set grtrnmovie to item 3 of checkLine
      set amusictruck to item 4 of checkLine
      set gmusictruck to value(amusictruck) + 1
      set checkLine to line i - 1 of thekpanlist
      set gprevmovie to item 1 of checkLine
      set checkLine to line i + 1 of thekpanlist
      set gnextmovie to item 1 of checkLine
      exit
    end if
  end repeat
end

on waitticks atickcount
  set theendtime to ticks() + atickcount
  repeat while ticks() < theendtime
    nothing()
  end repeat
end

on disablebuttons
  set the visible of sprite 30 to 0
  set the visible of sprite 31 to 0
  set the visible of sprite 32 to 0
  set the visible of sprite 33 to 0
end